.MODEL small
.586
EXTRN lirent:proc, ecrent:proc
EXTRN ecrbool:proc
EXTRN ecrch:proc, ligsuiv:proc
.CODE

debut:
STARTUPCODE

enter 3,0

lea dx,[bp+0]
push word ptr dx
call lirent

call ligsuiv

lea dx,[bp+-2]
push word ptr dx
call lirent

call ligsuiv

push word ptr [bp+-2]

pop ax
mov [bp+-4],ax

push word ptr [bp+0]

push word ptr [bp+-2]

pop ax
pop bx
cmp bx,ax
setg ah
setg al
push word ptr ax

pop ax
cmp ax,0 
je autr1

push word ptr [bp+0]

pop ax
mov [bp+-4],ax

autr1:

push word ptr [bp+-4]

call ecrent

fprinc:

EXITCODE
end debut
